home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / static tv (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  657b  |  15 lines
  1. 10 rem  static tv
  2. 20 rem  by hong pham
  3. 30 rem
  4. 40 v=53248:s=54272:z=16384:e=z+111
  5. 50 fori=ztoe:reada:pokei,a:ck=ck+a:next
  6. 60 ifck<>14422thenprint"error in data statements!":stop
  7. 70 fori=stos+24:pokei,0:next:poke56334,0
  8. 80 pokev+32,0:pokev+33,0:pokev+34,11:pokev+35,12:pokev+24,29:pokev+22,216:sysz
  9. 90 data162,25,189,86,64,157,255,211,202,208,247,169,9,157,0,216,157,0,217,157
  10. 100 data0,218,157,232,218,232,208,241,169,4,141,45,64,160,4,205,27,212,240,251
  11. 110 data173,27,212,157,0,0,232,208,242,238,45,64,136,208,236,169,48,141,75,64
  12. 120 data160,8,205,27,212,240,251,173,27,212,77,18,208,157,0,0,232,208,239,238
  13. 130 data75,64,136,208,233,240,224,0,8,0,0,129,16,255,0,26,0,0,129,16,255,255
  14. 140 data255,0,0,129,16,255,0,0,0,15
  15.